EnigmA Amiga Run 1995 October/EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso/Aminet/dev/gui/mui23dev.lha/MUI/Developer/Oberon/txt/demo.mod

Text File | 1994-02-03 | 310b | 18 lines

MODULE demo;

IMPORT  Dos, Mui;

  PROCEDURE fail*( app : Mui.Object; str : ARRAY OF CHAR );
    BEGIN
      IF app # NIL THEN
        Mui.DisposeObject( app );
      END;
      IF str # "" THEN
        IF Dos.PutStr( str )= 0 THEN END;
        HALT( 20 );
      END;
      HALT( 0 );
    END fail;

END demo.